home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / prlbkxmp.lha / apb / abbrev.eg < prev    next >
Text File  |  1991-01-08  |  225b  |  11 lines
  1. require 'abbrev.pl';
  2. %abdul = ();
  3. &abbrev(*abdul,'he','help','hi','bye','wally','world');
  4. .\"# for (sort keys abdul) { print "$_ $abdul{$_}\n"; }
  5.  
  6. while (<>) {
  7.     chop;
  8.     $long = $abdul{$_};
  9.     print "$long\n" if length($long);
  10. }
  11.